home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / tools / mg / rexx / clipclean.mg < prev    next >
Text File  |  1995-03-09  |  555b  |  23 lines
  1. /*
  2.  * clipclean - cleans up all the clips it was told about by mgclip. This
  3.  * should be run via rexx-do-on-exit, when mg exits.
  4.  *
  5.  * To have it clean up a clip, just call mgclip with the name of the clip
  6.  * as a the argument. Clip names that aren't "words" by the definitions
  7.  * of Rexx won't get cleaned properly.
  8.  */
  9.  
  10. clipname = "mg.cleanclips."
  11.  
  12. options failat 2
  13. 'rexx-unlock'        /* Free the mg - we can't complain anyway... */
  14.  
  15. cliplist = getclip(clipname)
  16.  
  17. call setclip clipname
  18.  
  19. do i = 1 to words(cliplist)
  20.     call setclip word(cliplist, i)
  21.     end
  22. exit
  23.